00100		DIMENSION N(3)
00200	1	TYPE 10
00300	10	FORMAT(' TYPE 3 NUMS.'/)
00400		ACCEPT 11,(N(I),I=1,3)
00500	11	FORMAT(3I)
00600		CALL NITE(N(1),N(2),N(3))
00700		TYPE 13,(N(I),I=1,3)
00800	13	FORMAT(1X3I)
00900		GO TO 1
01000		END